Namespace ValueObjects

    Public Class Priority
        Implements IDomainValueObject

        Public Sub New()

        End Sub

        Public Sub New(ByVal id As Guid, ByVal name As String)
            Me.Id = id
            Me.Name = name
        End Sub

        Private _id As Guid
        Public Overridable Property Id() As System.Guid Implements IDomainValueObject.Id
            Get
                Return _id
            End Get
            Set(ByVal value As System.Guid)
                _id = value
            End Set
        End Property

        Private _name As String
        Public Overridable Property Name() As String Implements IDomainValueObject.Name
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property

    End Class

End Namespace
